procedure limpiarCuadro;  { procedimiento que inicializa el cuadro    }
var                        { con valores en cero (solo por precaucion) }
   x, y : integer;
 
begin
   for x := 1 to 5 do
      begin
      for y := 1 to 5 do
         begin
         cuadro[x,y] := 0; { tanto el cuadro de la pantalla como el }
         jugada[x,y] := 0; { que se usa para validar las jugadas se }
      end;                 { inicializan en cero }
   end;
   for x := 1 to 75 do  { aqui se guardan todos los numeros que la maquina }
      numero[x] := 0;   { va seleccionando para validar que no se repitan  }
end;